home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTFileCollector.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  2.1 KB  |  60 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTFileCollector.pas' rev: 3.00
  6.  
  7. #ifndef AHMTFileCollectorHPP
  8. #define AHMTFileCollectorHPP
  9. #include <AHMSystem.hpp>
  10. #include <Classes.hpp>
  11. #include <SysUtils.hpp>
  12. #include <SysInit.hpp>
  13. #include <System.hpp>
  14.  
  15. //-- user supplied -----------------------------------------------------------
  16.  
  17. namespace Ahmtfilecollector
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. typedef void __fastcall (__closure *TAHMOnFileFound)(System::TObject* Sender, System::AnsiString Filename
  21.     );
  22.  
  23. class DELPHICLASS TAHMFileCollector;
  24. class PASCALIMPLEMENTATION TAHMFileCollector : public Ahmsystem::TAHMExecuteComponent 
  25. {
  26.     typedef Ahmsystem::TAHMExecuteComponent inherited;
  27.     
  28. private:
  29.     TAHMOnFileFound FOnFileFound;
  30.     Classes::TNotifyEvent FOnDirectoryFound;
  31.     System::AnsiString FInitialDirectory;
  32.     System::AnsiString FFileMask;
  33.     Classes::TStrings* FLocatedObjects;
  34.     void __fastcall SetLocatedObjects(Classes::TStrings* value);
  35.     
  36. public:
  37.     __fastcall virtual TAHMFileCollector(Classes::TComponent* AOwner);
  38.     __fastcall virtual ~TAHMFileCollector(void);
  39.     virtual bool __fastcall Execute(void);
  40.     bool __fastcall Scandirectory(const System::AnsiString dir);
  41.     
  42. __published:
  43.     __property Classes::TNotifyEvent OnDirectoryFound = {read=FOnDirectoryFound, write=FOnDirectoryFound
  44.         };
  45.     __property TAHMOnFileFound OnFileFound = {read=FOnFileFound, write=FOnFileFound};
  46.     __property Classes::TStrings* LocatedObjects = {read=FLocatedObjects, write=SetLocatedObjects};
  47.     __property System::AnsiString InitialDirectory = {read=FInitialDirectory, write=FInitialDirectory};
  48.         
  49.     __property System::AnsiString FileMask = {read=FFileMask, write=FFileMask};
  50. };
  51.  
  52. //-- var, const, procedure ---------------------------------------------------
  53.  
  54. }    /* namespace Ahmtfilecollector */
  55. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  56. using namespace Ahmtfilecollector;
  57. #endif
  58. //-- end unit ----------------------------------------------------------------
  59. #endif    // AHMTFileCollector
  60.